PD ROM 1/PD ROM Volume I - Macintosh Software from BMUG (1988).iso/Stacks/Hyper Media/HyperText Stacks Folder/XrefText⁄M/XrefText_M/card_4144.txt

Text File | 1988-04-10 | 4.7 KB | 229 lines

-- card: 4144 from stack: in
-- bmap block id: 7703
-- flags: 4000
-- background id: 2583
-- name: TheIndex
----- HyperTalk script -----
on openCard
  set lockText of card field "finder" to true
end openCard




-- part 1 (field)
-- low flags: 01
-- high flags: 2007
-- rect: left=269 top=97 right=313 bottom=457
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: finder
----- HyperTalk script -----
on mouseUp
  if the selection is empty then
    set lockText of the target to false
    put item 1 of the rect of card field finder into leftend
    put item 3 of the rect of card field finder into rightend
    put item 2 of the clickloc into vert
    click at leftend+2,vert
    click at rightend-25,vert with shiftkey
    -- repeat two times
    --   click at the clickLoc
    --  end repeat
    put the selection into holder
    push card
    visual effect wipe right to black
    visual effect wipe left
    find holder in field keywords -- This line is the link
    if the result is not empty then
      answer "No match for keyword " "e& holder"e
      pop card
    end if
    click at 0,0 --disable selection
    set lockText of the target to true
  end if
end mouseUp



-- part 5 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=382 top=54 right=75 bottom=457
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Re-Index
----- HyperTalk script -----
on mouseUp
  set cursor to 4
  set loc of message to 10,170
  play harpsichord c
  put "Sorting Reference Cards . . . Please Wait" into message
  put empty into card field finder
  set the cursor to 4
  sort by field keywords
  get the number of cards
  put it into x
  put 0 into y
  subtract 1 from x
  play harpsichord e
  flash 1
  put "Getting Keywords . . . Please Wait" into message
  set lockscreen to true
  repeat x
    add 1 to y
    go next
    get field keywords
    put it into line y of card field finder of card 1
  end repeat
  go card 1
  set lockscreen to false
  play harpsichord g
  flash 1
  put "Compacting Stack . . . Please Wait" into message
  doMenu "Compact Stack"
  play harpsichord c5 g4 e c
  flash 1
  put "Done" into message
  wait 2 seconds
  hide message
  set the loc of msg to 10,-100
end mouseUp




-- part 18 (button)
-- low flags: 80
-- high flags: A000
-- rect: left=172 top=92 right=140 bottom=266
-- title width / last selected line: 0
-- icon id / first selected line: 24209 / 24209
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: XTButton
----- HyperTalk script -----
on mouseUp
  get the short name of target
  visual effect iris close to black
  visual effect iris open to white
  visual effect dissolve
  go to stack it
end mouseUp




-- part 27 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=269 top=54 right=75 bottom=379
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: New Key
----- HyperTalk script -----
on mouseUp
  ask "Enter New Keyword:"
  if it is not empty then
    put it into keyname
    doMenu New Card
    set the name of this card to keyname
    put keyname into field keywords
    get the number of lines in card field finder of card theIndex
    put keyname into line it+1 of card field finder of card theIndex
  end if
end mouseUp



-- part 28 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=9 top=315 right=342 bottom=30
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Xref on Home
----- HyperTalk script -----
on mouseUp
  play harpsichord c6
  set the cursor to 4
  put "Putting button into home stack...Please wait" into message
  get the short name of this stack
  put it into nameholder
  show card button "XTButton"
  choose button tool
  click at the loc of button "XTButton"
  doMenu "Copy Button"
  go home
  doMenu "Paste Button"
  set the name of button "XTButton" to nameholder
  go back
  hide button XTButton
  play harpsichord c5
  put "Done." into message
  wait 30 ticks
  hide message
  choose browse tool
end mouseUp




-- part contents for background part 1
----- text -----















-- part contents for background part 41
----- text -----
What links to Patrick?

-- part contents for card part 1
----- text -----

applications
AwayFromHome
Frank Patrick
HyperCard
HyperText
modifications
paint
Ristau
shareware
XrefText
XrefText/M